Option Explicit
'ۭqҲ
Private Sub CommandButton1_Click()
    Dim myCnt As Control
    Dim myStr As String
    Dim i     As Long
    For i = 1 To 2
        With Me.Controls("CheckBox" & CStr(i))
            If .Value Then
                myStr = myStr & .Name & ","
            End If
        End With
    Next
    If Len(myStr) > 0 Then
        MsgBox myStr & "QܤFC"
    Else
        MsgBox "S"
    End If
End Sub
